Extension { #name : 'OCBlockNode' }

{ #category : '*SystemCommands-SourceCodeCommands' }
OCBlockNode >> displaySourceCode [

	| code |
	code := '[ '.
	self arguments ifNotEmpty: [ :args |
		code := code , (String streamContents: [ :s |
			         args do: [ :arg |
				         s
					         nextPutAll: ':';
					         nextPutAll: arg name;
					         nextPutAll: ' ' ] ]).
		code := code , '| ' ].
	code := code , '  ]'.
	^ code
]
